|
DraftSight 2D : Lisp Datei elemente erzeugen
marcel3 am 24.04.2017 um 16:17 Uhr (1)
Hallo zusammenich beschäftige ich mich gerad damit ein kleines Lisp Programm zu erstellen.Das Programm soll Kreise mit einem Achsenkreuz erstellen und am Schluss diese neu erstellte Geometrie in einen Block zusammenfassen.Der Teil die Kreise erstellen ist soweit gegangen.Hier mein bisheriger Code: (Linienart Center muss vorhanden sein)Code:(defun c:Krlu ()(setq p1 (getpoint "punkt angeben:"))(setq v1 (getreal "durchmesser angeben:"))(setq x (car p1))(setq y (cadr p1))(setq v2 (+ 2 (/ v1 2)))(setq v3 0.0)(s ...
| | In das Form DraftSight 2D wechseln |
|
DraftSight 2D : Lisp Datei elemente erzeugen
marcel3 am 24.04.2017 um 17:09 Uhr (1)
Hallo cadffmdanke für die Antwort.Der Hintergrund meiner Aufgabenstellung ist folgende:Ich benötige viel Kreis mit unterschiedlichem Durchmesser diean einem durch den User bestimmten Einfügepunkt positioniert werden. Am besten als Block definiert und auf vorgegebenen Layer.Wie würde das "professionell" gemacht?Später möchte ich evt. noch weitere Formen z.B Rechteck auf gleiche weise erstellen können.habe die Variable mit dem Wert 5 getestet, der Kreis bekommt einen Durchmesser von 5. Danke für den Hinweis, ...
| | In das Form DraftSight 2D wechseln |
|
DraftSight 2D : Lisp Datei elemente erzeugen
marcel3 am 25.04.2017 um 08:30 Uhr (1)
So nun habe ich dank euch das Programmsoweit fertig.hier einmal der Code, für Verbesserungen und allfällige Hinweiseauf Probleme bin ich weiterhin sehr dankbar.Das Programm wird grundsätzlich für das zeichnen von Rohrleitungen verwendet z.B für Lüftungsanlagen.Deshalb will ich in einem nächsten Schritt noch eines für Rechtecke auf die gleiche Art und Weise erstellen.Code:(defun c:Krlu ()(setq v1 (getreal "durchmesser angeben:"))(setq n1 (getstring "name angeben:"))(setq x 0.0)(setq y 0.0)(setq v2 (* 1.1 (/ ...
| | In das Form DraftSight 2D wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
